home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-19 / pkey12_1.zip / LT.LSP < prev    next >
Text File  |  1992-09-13  |  623b  |  16 lines

  1. ;Change linetype of multiple objects
  2. ;
  3. (graphscr)
  4. (princ "\nChange Linetype")
  5. (prompt "\nSelect object to be changed...")
  6. (setq a(ssget))
  7. (if a(progn
  8. (initget 1 "L C H D SD CE l c h d sd ce")
  9. (setq c(getkword "\nSelect...by(L)ayer.(C)ontinuous.(H)idden.(D)ashed.(SD)small dash.(CE)nter "))
  10. (if(or(= c "L")(= c "l"))(setq d '"bylayer"))
  11. (if(or(= c "C")(= c "c"))(setq d '"continuous"))
  12. (if(or(= c "H")(= c "h"))(setq d '"hidden"))
  13. (if(or(= c "D")(= c "d"))(setq d '"dashed"))
  14. (if(or(= c "SD")(= c "sd"))(setq d '"sd"))
  15. (if(or(= c "CE")(= c "ce"))(setq d '"center"))
  16. (command "change" a "" "prop" "lt" d "")))